home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0586.arc / CALC.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-06  |  512b  |  22 lines
  1. program calc(output);
  2.    (* From BYTE Magazine February 1986 page 283 *)
  3.  
  4. var
  5.    a,b,c : real;
  6.    i,n   : integer;
  7.  
  8. begin
  9.    n := 5000;
  10.    writeln('Starting ',n,' iterations now.',chr(7));
  11.    a := 2.71828;
  12.    b := 3.14159;
  13.    c := 1;
  14.    for i := 1 to n do
  15.       begin
  16.          c := c * a;
  17.          c := c * b;
  18.          c := c / a;
  19.          c := c / b;
  20.       end;
  21.    writeln(chr(7),'Error = ', c - 1);
  22. end.